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== ACCOUNTING MESSAGE SUBROUTINES” *: 1g 36-1388 $3:49:17 AX/VMS Macro V04-00 


° 
“SEP=19 SYS.SRCJACCOUNT.MAR; 1 


LE ACCOUNT == ACCOUNTING MESSAGE SUBROUTINES 
NT 6 000" 


TIT 
-1DE 4- 


i seaneneeeeenenereeererenecenenteeennenntteenensenttnnenntatecneneeeseeeesses 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DICITAL Fee een CORPORATION,” MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd ba 
ONLY IN eae WITH THE TERMS OF SUCH Lice SE__ AND a THE 
INCLUSION OF THE ABOVE git NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY ree BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
hh tt NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aORPORGT bk NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; "FACILITY: EXECUTIVE 
; ABSTRACT: 
; ENVIRONMENT: KERNEL MODE, IPL 0 OR SPECIAL KERNEL AST (IPL 2) 


-SBTTL HISTORY ; DETAILED 
AUTHOR: Steve Forgey CREATION DATE: 01-Aug-1981 
MODIFIED BY: 

v03-005 ry ptt Martin L. Jack, 22-May-1983 


:07 
Always write process termination message to Ht controller, 


without filtering on ACM$V_PROCESS. Also fix a broken BSBW. 


v03-004 CWH1002 CW Hobbs 24-Feb-1983 
Change so that eutended pid and owner are used in the 
accounting records. 


v03-003 LJK0190 Lawrence drak 15-Nov-1982 
Fix bug introduce ¢ by LJK ise. thet did not fully note that 
nonettes containing image name and address changed. 


v03-002 LJK0186 Lawrence J. Kena ge~0c t= 1962 
Perform access checks before picking up image name from 
image header buffer page space. 
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V03-001 KOM000 Kathleen D. Morse 28-Jun-1982 


Added Sproer . 
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«SBTTL DECLARATIONS 
-PSECT YFSLOWUSE 


VO5-000 DECL 
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: EQUATED SYMBOLS: 


SACMDEF ; DEFINE AST CONTROL BLOCK 
SIPLDEF ; PROCESSOR INTERRUPT LEVELS 
SMSGDEF ; DEFINE MAILBOX MESSAGE TYPES 
SPCBDEF ; DEFINE PCB O 

SPHDDEF : DEFINE PROCESS HEADER OFFSETS 
ASSUME ACMSW_MAILBOX EQ ACMSW_TYPE+2 

ASSUME ACM$Q"PRVMSK EQ A acne ml ILBOX+2 

ASSUME M$L_UIC EQ ACMSQ_P K+8 

ASSUME ACMS$T_USERN EQ xn +4 


ACMS$B_PROCPRI EQ ACMST_ACCOUNT+8 
ASSUME ACMSL_PID EQ ACMS$B_PROTPRI+4 
ASSUME AchsL. ou. EQ ACMSL” Pipes 
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ACMSW_ NAME EQ A 
ASSUME ACHSK” ~PROCLEN EQ ACMSW_IMAGENAME +2 
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ACCOUNT =- ACCOUNTING MESSAGE SUBROUTINES 15=SEP=1984 7 VAX/VMS Macro v04-0 P 
Y05e000 IMAGE ACCOUNTING MESSAGE ~SeeT8Be Beitars) | PANCMaS Macre vO4eO0 age 3) 
4 .SBTTL IMAGE ACCOUNTING MESSAGE 
139 i¢e 
; FUNCTIONAL DESCRIPTION: 
109 ; 
1 0 : INPUT PARAMETERS: 
W1: R4 = PCB ADDRESS 
11 ; R5 = ACB ADDRESS (IF SPECIAL KERNEL AST ROUTINE) 
113 = 0 (OTHERWISE) 
115 : OUTPUT PARAMETERS: 
116 ; RO = RETURN STATUS 
0 118 i=. 
00 11 
00 0 .ENABLE LSB 
009 1 g EXESIMGPURMSG: : ; SEND IMAGE PURGE MESSAGE 
OFFE 8F 0000 «(1 PUSHR #*M<R1,R2,R3,R4.R5,R6,R7, /RB,R9,R10,R11>; SAVE RI-R11 
56 OD 3C 9004 124 MOVZWL #MSGS_PURIMAG,R6 : SET UP méSSAGE TYPE 
07 «11 0007 5 BRB 10$ 
0009 1 : EXESIMGDELMSG: : END IMAGE TERMINATION MESSAGE 
OFFE 8F 38 009 128 PUSHR  #*M<R1,R2,R3,R4.R5,R6, RT, RB,RO,R10,R11>;SAVE R1-R11 
56 (0C)CO3C 9000 3 be MOVZWL #MSG$_DELIMAG,R6 set UP méSsAcé TYPE 
16 00000000"EF 01 €1 9010 131 "BBC #ACMSV_IMAGE , EXESGL_ACMFLAGS IF BC, IMAGE ACCOUNTING NOT ENABLE 
1124 46 OF €0 0018 1 é BBS #PCBSV-NOACNT ,PCBSL— STS(R4) 5 gs “IF BS. ’NO ACCOUNTING FOR PROCESS 
9010 1 SETIPL #IPL$_ASTDEL LOCK OUT AST DELIV 
51 00000004'9F  00000000'9F ¢9 0020 134 BISL3 aacTLSGa. ISTART, aacTLSGa_ ISTART #4. R1; IMAGE SC COUNTING ACTIVE ? 
03 12 002¢ 135 BNEQ 30$ IF NEQ, YES 
O02E 136 20S: 
0208 31 OO 137 BRW EXIT 
031 138 30S: 
57 SE 00 0 } 139 MOVL SP, R7 : SAVE SP (END OF BUFFER) 
$6 4 141 : IMAGE NAME 
5B 54~=SCoé 09 4 128 ; MOVL _R4,R11 : SAVE PCB ADDRESS IN SAFE PLACE 
SA OG 7 164 CLRL =. R10 : ASSUME NO IMAG E 
54  00000000°9F DE 6 9 145 MOVAL @ACTLSGL_IMGHDRBF,R4 =; GET POINTER TO IMAGE HEADER BUFFER 
00000000'GF 1 40 146 JSB ° EXESCHRIMAGNAME : IS IMAGE NAME ACCESSIBLE? 
1 46 14 BEQL : CH IF INACCESSIBLE 
SE c 4 148 SUBL2 R3,SP > ALLOCATE BUFFER SPACE 
7 5 4B 14 MOVE RS. =(SP) : STORE IMAGE NAME SIZE 
01 AE 64 3 2 af 150 MOVC3 *(R4),1(SP) : COPY IMAGE 
SA OSE OCOD : 1 MOVL SP RIO : IMAGE NAME ADDRESS 
§ : REMOTE NODE INFORMATION 
59 00000000°9F 9A 0056 155 $5$: MOVZBL @#CTLST_REMOTEID,R9 : GET REMOTE ID BYTE COUNT 
12 1 5 1 6 BEQL 4 $ : IF EQL, NO REMOTE ID 
E ae SUBL2 oe 3 ALLOCATE BUFFER SPACE 
— 59 : 62 1 8 MOVE R934 BYTE COUNT 
01 AE 00000001'9F 59 651 MOVC3 R ape St _REMOTEID+1, 18); COPY REMOTE ID 
59 SE oD 6— 160 MOVL P°R9 REMOTE ID ADDRESS 


: RESOURCE DATA 


K 13 
ACCOUNT =- ACCOUNTING MESSAGE SUBROUTINES 15=SEP=1 9:17 VAX/VMS Macro V04-00 Pa 
¥06 000 IMAGE ACCOUNTING MESSAGE ~See1SBe Badass) PANCMES acre NO4nOO ve 3) 
40$: 
58  00000000'9F 94 ; NOVZBL seer T- NODENAME ,R8 : GET NODE NAME BYTE COUNT 
1 f ; IF EQL, NO REMOTE NODE NAME 
E HiT te ; ALLOCATE QurFe R SPACE 
E 7 MOVB R (SP) BYTE COUN 
01 AE 00000001'9F MOVC3 Re agenusr. NODENAME +1, 1<8P ); COPY NEMOTE NODE NAME 
58 SE OCOD - MOVL  SP.RB : Pain MOTE NODE NAME ADDRESS 
51 00000000'9F 9A "  MOVZBL  @#CTLST_NODEADDR,R1 ; GET NODE yADpRess BYTE COUNT 
le 1 BEQL  60$ REMOTE NODE ADDRESS 
E 9 SUBL2 R1,SP t ALLOCATE. BUFFER SPACE 
€ 51 9 MOVE. R1,-(SP) BYTE COUN 
01 AE 00000001'9F 51 MOVC3 1, a#CTLST_NODEADDR+1, 155 COPY REMOTE NODE ADDRESS 
51 5e 00 0 a MOVL  SP.R1 REMOTE NODE ADDRESS ADDRESS 
7E «7 A -(SP) ; NODE ADDRESS, NAME, REM. ID, IMAGE 
54 5B 0 MOVL  R11,R4 + RESTORE PCB ADDRESS TO USUAL REGISTER 
0 
0 


SoG Moo F- WIG G MOM Od dro OOS Po oz 
i kk kk kd dd 8 =H) 
OOOO 000000909 09 09 09 09 09 09 SININI NINN NNN NIA AAA AOAAAO 


FW SO ODNA UE WN OOONAULS LP" QOUONOMS UN Zz 
o 
oa 
2 
o 


COOOCSSCOOOOOSOOOOSOOSOOSOSOOOOOOOOOOOOOOO 


A 
A 
A 
A 
A 
A 
7E  00000000'9F  00000000'°9F c3 OODA SUBL3 @ACTLSGL_IVOLUMES ,@MCTLSGL VOLUMES,-(SP); IMAGE VOLUME MOUNTS 
55 itddittdit ‘OF §=6D0(00B MOVL.  a#CTL$GL~PHD,RS D 
7E 458 A5 90000000" 9F C3 008 SUBL3 a@#CTLSGL-IBIOCNT,PHDSL _BIOCNT(RS) »=<SP); IMAGE BUFFERED 1/0 COUNT 
7E 54 a5 00000000'9F ¢ oc SUBL3 a@#CTLSGL-IDIOCNT.PHDS$L_DIOCNT(R5) .-(SP): IMAGE DIRECT I/O COUNT 
7E 00000000'9F D OVO. aM#CTLS$GL-IWSPEAK,-(SP)~ ; IMAGE WORKING SET AND PAGE FILE PEAK 
7E 0108 C 0000000'9F C3 00D SUBL3 a@#CTLSGL-IFAULTIO,PHDS$L_PGFLTIO(R5),-(SP); IMAGE PAGE FAULT 1/0 COUN 
7E 4C AS 00000000'9F C3 O0E SUBL3 a@#CTLSGL-IFAULTS,PHDSL_PAGEFLTS(R5).-(SP): IMAGE PAGE FAUL 
7E 38 a5 ‘OF «6 C3—sOOE SUBL3 a#CTL$GL 1CPUTIM, -PHDSL~CPUTIM(R5) -(sp): fj U TIME 
OF 4 g DD OOF PUSHL PHDS$L_IMGCNT(RS) ; IMAGE SEQUENCE N 
000' 9F pp OF PUSHL a@#CTLSGL_FINALSTS ; IMAGE FINAL STATUS 
7E $0080" SE D OOF OVA © @#CTLSGOLISTART,-(SP) ; IMAGE START TI 
0082 «(31 10 BRW IDENT : JOIN COMMON CODE 
10 .DISABLE LSB 


: REMOTE NODE INFORMATION 
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ACCOUNT =- ACCOUNTING MESSAGE SUBROUTINES 15-SEP- /VMS Macro V04-00 Pa 
y06-000 PROCESS ACCOUNTING BESSace ~SEe 188s Gaiderds PENEMaS acre vO4e00 ve , 
196 .SBTTL PROCESS ACCOUNTING MESSAGE 
1 198 +4 
199 + FUNCTIONAL DESCRIPTION: 
1 1: 
1 gi : INPUT PARAMETERS: 
1 : R4 = PCB ADDRESS 
1 4; RS = ACB ADDRESS (IF SPECIAL KERNEL AST ROUTINE) 
5; = 0 (OTHERWISE) 
1 3 OUTPUT PARAMETERS: 
g: ; RO = RETURN STATUS 
a ie 
19 : .ENABLE LSB 
10 4 EXESPRCPURNSG:: : SEND PROCESS , PURGE MESSAGE 
OFFE 8F 108 5 PUSHR <R1,R2,R3,R4.R5,R6, Rv /RB,RI-RI0.R AVE R1-R11 
56 08 $C 010¢ é MOVZWL mmscs PURPROC ,R6 set UP MESSAGE TYPE 
0111 
111 § EXESPRCDELMSG: : > SEND PROCESS TERMINATION MESSAGE 
OFFE 8F GB 111 0 PUSHR  #*M<R1,R2,R3,R4,R5,R6, R? /RB,R9,R10,R11>; SAVE _RI-R11 
56 (03)—C—s3C 113 1 re MOVZWL #MSG$_OELPROC,R6 SET UP mesAce TYPE 
03 2404 OF €1 O18 § ae BBC socene mania Scum gested nts IF BS, NO ACCOUNTING FOR PROCESS 
0119 31 OH D 5 BRW EXIT 
120 § 30$: 
57 SE 00 : f MOVL = SP,R7 : SAVE SP (END OF BUFFER) 
1 9 : IMAGE NAME 
1 0; 
SA D4 a 1 CLRL — R10 > NO IMAGE NAME 
0 3 $38 
125 4 
59 00000000'°9F 9A 0125 s MOVZBL @#CTLST_REMOTEID,R9 ; GET REMOTE ID BYTE COUNT 
17. 13 Olec ‘ BEQL 405 : QL, NO REMOTE ID 
5E 29 C2 O12E SUBL2 R9,S ; ALLOCATE BUFFER SPACE 
7E 59 «960 0131 8 MOVE RO. StsP) 3 COUNT 
4 Dp 134 PUSH SAVE PCB ADDRESS 
05 AE 00000001'9F 59 136 0 MOVCS R9,a#CTL$T_REMOTEID+1, 5(§p); COPY REMOTE 1D 
4 8EDO 013F 1 POPL ; RESTORE PCB ADDRESS 
59 5E 00 1 : px MOVL SP, R9 : REMOTE ID ADDRESS 
58 00000000'°9F 9A 014 4 ———sé«CMOVZBLL MC TLST_NODENAME ,R8 : GET NODE lane BYTE COUNT 
17 13 014¢ 5 BEQL 3 $ : IF EQL, NO REMOTE NODE NAME 
5E 8 146 6 SUBL2 RB .SP ; ALLOCATE BUFFER SPACE 
E 1 MOVE *=(SP) : BYTE COUNT 
4 bp 154 8 PUSH : SAVE PCB ADDRESS 
05 AE 00000001'9F 58 156 MOVC pbs gece Ps COPY REMOTE NODE NAME 
4 EDO 15F 0 POPL R4 ; RESTORE PCB ADDRESS 
58 SE oD 16¢ } MOVL  SP,RB8 : REMOTE NODE NAME ADDRESS 
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: RESOURCE DATA 

aeCTL$GL L VOLUMES 
PHDSL Stocnrtns), =(SP) 
#CTLSGL_WS =(SP) 


SNS NN SSN AAAAAAAA OUI 
NOUS WN OOONAOULS WN" OVOnNOUISw += 


gf yas Macro Vv04-00 Page 7 
1 RCJACCOUNT.MAR; 1 (2) 
; GET NODE ADDRESS BYTE COUNT 
IF EQL, NO REMOTE NODE ADDRESS 
: ALLOCATE BUFFER SPACE 
LANES COUNT 
: SAVE PCB ADDRESS 
copy REMOTE NODE ADDRESS 
oP aEst ORE PCB ADD 


: REMOTE NODE ADDRESS ADDRESS 
NODE ADDRESS, NAME, REM. ID, IMAGE 


VOLUMES MOUNTED 
PHD ADDRE 

DIRECT AND BUFFERED I0 COUNTS 
WOR BOE LS 70 count GE FILE PEAK 


C IME 

IMAGE EXECUTION COUNT 
FINAL STATUS 

LOGIN TIME 


we 
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ACC =- ACCOUNTING MESSAGE SUBROUTINES 15-SEP-19 AX/VMS Macro V04-00 Page 
v04= 80 COMMON IDENTIFICATION DATA met 83; $3; uf SYS. SRCJACCOUNT.MAR; 1 ° 3) 
1BA 79 ~SBTTL COMMON IDENTIFICATION DATA 
1BA 9 IDENT 
7E 00000000'EF 7D O1BA ; MOVQ  EXES$GQ_SYSTIME,-(SP) __; CURRENT TIME 
7E 44 AG 7D O1C1 MOVQ PCBST_TERMINAL(R4),-(SP); INTERACTIVE PROCESS TERMINAL NAME 
8 AG DD 01C5 4 PUSHL PCBSLTEOWNER(R4) + EXTENDED PID OF SUBPROCESS OWNER (0 => NON 
4 AG DD 0168 5 PUSHL PCBSL~STS(R4) : PROCESS STATUS 
4 A4 DD O1CB g PUSHL PCBSL-EPID(R4) : EXTENDED PROCESS ID 
fe Bt ibe 588 ctRB. =(SP) Teduatpee lsc 
7E 1F 2 AG 83 1D 9 SUBB3 PCB$B_PRIB(R4) ,#31,-(SP): PROCESS BASE PRIORITY 
7E 00000 O'S9F 7D 01D 90 MOVQ  @ACTLST_ACCOUNT,-(SP) : ACCOUNT NAME 
7E (0000004'9F 7D 1DE 91 MOVva SACILST “USERNAME SG: PXSP): USERNAME 
00000000'9F DD O1E 36 PUSHL a@#CTL$T-USERNAME 
OOBC C4 DD O1EB 29 PUSHL PCBSL_UTC(R4) : PROCESS UIC 
7E 0084 C4 7D O1EF 29% OVQ PCBSQ"PRIV(R4),-(SP) |: PRIVILEGE MASK 
56 DD OCOTF4 «= 295 PUSHL R6 : MESSAGE TYPE AND RESPONSE MAILBOX (0) 
51 D3 1f6 36 ran. = (oY + NODE ADDRESS PRESENT ? 
07 «13—=«OO1F 9 BEQL 10% : IF EQL, N 
5E C2 1FA 298 SUBL2 SP,R1 : NODE NAME OFFSET 
7, AE 3251 «OF O1FD 99 a CVTLW 1, ACM$W_NODEADDR(SP) 
58 DS § 01 301 TSTL RB : NODE NAME PRESENT ? 
07 13 0203 0¢ BEQL 208 : IF EQL, 
58 3E C2 0205 30 SUBL2  SP,R8 : NODE NAME OFFSET 
76 AE 58 F 0 08 04 ae CVTLW RB. ACMS$W_NODENAME (SP) 
59 05 0 OC 306 TSTL = RO ; REMOTE ID PRESENT ? 
«(| 0 07 BEQL 30S : IF EQL, NO 
SE C2 021 08 SUBL2 SP,R9 + REMOTE ID OFFSET 
78 AE 0OC59sCé 0 13 09 a CVTLW R9.ACM$W_REMOTEID(SP) 
SA DS 0217 311 TSTL R10 : IMAGE NAME PRESENT ? 
07 13 0219 1 BEQL 408, : IF EQL, NO 
SA OSE C2 0218 «31 SUBL2 SP,R : IMAGE AME OFFSET 
A VTLW H MSW_IMAGENAME (SP 
7A AE SA fF 4 14 ia CVT R16, o $W_IMAGENAME (SP) 
55 00000000°EF DE § 16 MOVAL SYS$GL JOBCTLMB.RS ; ACCOUNTING MANAGER MAILBOX UCB ADDR 
53. 57) OSE) =OC3 (0229S 317 SUBL3 SP, : MESSAGE SIZE 
54 OSE Ooi D «318 MOVL = : MESSAGE ADDRESS 
00000000'GF 16 0 319 JSB G*EXESSENDMSG : SEND MESSAGE TO JOB CONTROLLER 
SE 57 00 36 0 aie MOVL RT, SP : CLEAN UP STACK 
OFFE ef BA 39 s POPR #*M<R1,R2,R3,R4.R5,R6,R7,R8,R9,R10,R11>; RESTORE RI-R1 
5 D5 D TSTL = RS : SPECIAL KERNEL AST ROUTINE ? 
OA 12 O23F 4 BNEQ 108 : tf Q, YES 
00000000°9F 7C 0241 5 CLRQ  a#CTL$GQ_ISTART + MARK IMAGE ACCOUNTING INACTIVE 
47 6 SETIPL #0 : ENABLE AST DELIVERY 
a ie 
0 55 09 4B 9 MOVL RS, RO ; ADDRESS OF ACB TO DEALLOCATE 
00000000°EF 1 s ‘ JMP EXESDEANONPAGED : DEALLOCATE ACB ON THE W 
4 2 END 
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Symbol table 
ACMS$B_PROCPRI 
ACMSK_PROCLEN 


ACMSL “OWNER 
ACHSL _PAGEFLTS 


$W_NODENAME 
ACMSW_REMOTEID 
ACMSW” TYPE 
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ACCOUNT =- ACCOUNTING MESSAGE SUBROUTINES 1g=$60- 1288 83:43:17 yaivat Macro La 4 
Psect synopsis 5-SEP-1984 2:39:51 SYS.SRCJACCOUNT.MAR; 


deeeeeeoeeeacan Soe} 


! ;_Psect synopsis ! 


eee So ew onon} 


PSECT name Allocation PSECT No. Attributes 

‘ “ABS . 4444 da “¢ + 0 ( 0.) NOPIC USR CON ABS LCL noe NOEXE NORD wont NOVEC BYTE 
YFSLOWUSE 00000 596.) 1¢( 1.) NOPIC USR CON REL LCL NOSHR’ EXE RD NOVEC BYTE 
SABSS$ 00000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD unt NOVEC BYTE 


Pewee eeooeeeeoeseesoess =-+ 
! ; Performance indicators ! 
+ 


Phase Page faults CPU Time Elapsed Time 
Initialization 34 00:00:00.07 00:00: 0.50 
poanens processing 164 00:00:00.64 00:00:04.70 
s 1 211 eS 4 00:00:20.84 
Seekel table sort 0 00:00:00.58 00:00:01.93 
ass 2 77 Ab Sb 00:00:04.47 
Symbol table output 10 00:00:00.09 00:00:00.35 
Psect synopsis output § sb S43 BS #20 +89 8 
Cross-reference output ie So i SE 
Assembler run totals 500 0:00:07.54 00:00:32.81 


The working set Limit was 1350 pages. 

26742 bytes (53 pages) of virtual memory were used to buffer the intermediate c 

There were 30 pages of symbol table space allocated to hold 423 non-local and #39 locat symbols. 
2 source lines were read in Pass 1, producing 16 object records in Pass 2. 

14 pages of virtual memory were used to define 13 macros. 


er 


Macro Library name Macros defined 
_$255$DUA28: (SYS .OBJILIB msi 1 5 
“$255$DUA28: (CSYSLIBJSTARLET.MLB;2 5 

TOTALS (all Libraries) 10 


479 GETS were required to define 10 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:ACCOUNT/OBJ=OBJ$:ACCOUNT MSRC$:ACCOUNT/UPDATE=(ENHS: ACCOUNT) +EXECMLS$/LIB 
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